program ClassSolver;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Solver=class
    a, b, c:integer;
    Procedure FindOut;
    Procedure Solve;
  end;

{ Solver }

procedure Solver.FindOut;
begin
  writeln ('enter a, b and c');
  readln (a,b,c);
end;

procedure Solver.Solve;

var
  d: integer;
  x1, x2: real;

begin
  if a=0 then
  begin
    if b<>0 then
      writeln(-c/b);
    if (b=0) and (c=0) then
      writeln('Every number is a sollution');
    if (b=0) and (c<>0) then
      writeln('No sollutions');
  end
  else
  begin
    d:= b*b - 4*a*c;
    if d>=0 then
    begin
      x1:= (-b+sqrt(d))/2*a;
      x2:= (-b-sqrt(d))/2*a;
      if x1<>x2 then
        writeln(x1, x2)
      else
        writeln(x1);
    end
    else
      writeln('No sollutions');
    end;
  end;

var
  S:Solver;

begin
  S.FindOut;
  S.Solve;
  readln;
end.
